home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 17 / Developer Source Volume 17 (I-MODE Publications, Inc.)(2000).iso / orinf / sep96 / hoskf111.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  13KB  |  539x474  |  4-bit (12 colors)

Labels: text | electronics | screenshot | display | software | web page | number | website | computer icon
OCR: frmLaunch Properties D. X TestCommand + 7 udmTabSelected Sub udmTabSelected(pValue as String) ' Description: This method provides the parent object with the ability to effect programmatic changes based on the currently selected Tab instance. Parameter (s) : pValue String The label of the selected tab. Return: < nothing> - Set the name of the Application that has been chosen to run. clsPanelPick. clsPanelName. txtNameBG. Label = pValue clsPanelPick. clsPanelName. txtName. Label = pValue Set the button's bitmap property to the appropriate bitmap image. IF pValue = "Notepad" THEN clsPanelPick. btnPick. Bitmap = BITMAPS. bmpNotepad ELSEIF pValue = "Write" THEN clsPanelPick. btnPick . Bitmap = BITMAPS. bmpWrite ELSEIF pValue = "Paintbrush" THEN clsPanelPick. btnPick . Bitmap = BITMAPS. bmpPaint ELSE clsPanelPick.btnPick. Bitmap = BITMAPS. bmpCalc END IF

---